inherited SessionSaveAsDialog: TSessionSaveAsDialog Left = 518 Top = 208 BorderStyle = bsSizeable Caption = 'Save Session As' ClientHeight = 215 ClientWidth = 313 Constraints.MinHeight = 171 Constraints.MinWidth = 321 OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object EditLbl: TUiLabel Left = 8 Top = 8 Height = 13 Caption = 'Save current settings as:' FocusControl = Edit end object TreeViewLbl: TUiLabel Left = 8 Top = 56 Height = 13 Caption = 'Create in:' FocusControl = TreeView end object TreeView: TUiTreeView Left = 8 Top = 72 Width = 297 Height = 105 Anchors = [akLeft, akTop, akRight, akBottom] HideSelection = False Images = BcImages.MainImages PopupMenu = TreePopup TabOrder = 1 OnChange = TreeViewChange OnEdited = TreeViewEdited OnEditing = TreeViewEditing OnKeyDown = TreeViewKeyDown OnCancelEdit = TreeViewCancelEdit end object Edit: TUiComboBox Left = 8 Top = 24 Width = 297 Height = 21 AutoComplete = False Anchors = [akLeft, akTop, akRight] ItemHeight = 13 TabOrder = 0 OnChange = EditChange OnClick = EditClick OnKeyDown = EditKeyDown end object BottomPanel: TUiPanel Left = 0 Top = 177 Width = 313 Height = 38 Align = alBottom BevelOuter = bvNone TabOrder = 2 SizeGripper = True DesignSize = ( 313 38) object NewSubfolderBtn: TUiBitBtn Left = 8 Top = 8 Caption = 'New Subfolder' TabOrder = 0 OnClick = NewSubfolderClick AutoSize = asLeft ImageIndex = imgContainerYellowNew Images = BcImages.MainImages end object OkBtn: TUiButton Left = 152 Top = 8 Anchors = [akTop, akRight] Caption = 'OK' Default = True TabOrder = 1 OnClick = OkClick AutoSize = asRight end object CancelBtn: TUiButton Left = 232 Top = 8 Anchors = [akTop, akRight] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 AutoSize = asRight end end object TreePopup: TUiPopupMenu object NewSubfolderItem: TUiMenuItem Caption = 'New Subfolder' ShortCut = 45 OnClick = NewSubfolderClick end object DeleteItem: TUiMenuItem Caption = 'Delete' ShortCut = 46 OnClick = DeleteClick end object RenameItem: TUiMenuItem Caption = 'Rename' ShortCut = 113 OnClick = RenameClick end end end